home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / boymks5e.zip / TCAT.BSC < prev    next >
Text File  |  1991-08-04  |  2KB  |  80 lines
  1. \\Here is a wildcat script that I haven't used in a while.  It uses the TCat
  2. \\door..  You might need to edit some of it, but the basic commands are
  3. \\there.
  4.  
  5. \TO[40]                                \\ sets WaitFor timeout to 40 seconds
  6. |logon
  7. \sv1[shopper.rep]                            \\ enter relpy packet name here
  8. \SV2[1]                                      \\ enter Mail door number [#]
  9. \sv4[shopper.qwk]                            \\ enter massage .QWk filename
  10. \BL[NAME]\dm[Starting to log name onto %SN]
  11. \BL[QUEST]\dm[Starting Quest block]
  12. \FE+%U:%V1[\bl[tcmailup]]]\dm[Starting to do Mail Upload]
  13. \bl[tcmaildn]\dm[Starting to do Mail Dnload]
  14. \BL[Logoff]\dm[Getting ready to logoff]
  15. \gs[cycle]\eb
  16.  
  17. |name
  18. \wp[1]
  19. \if+onStop:[\gb[name]]
  20. \IF+First Name? [\! \@{\gb[name]]
  21. \iF+please try again.[%PW~{~\eb]
  22. \IF+Password:[%PW~{~~\eb]
  23. \pa[5]\gb[name]
  24. \eb
  25.  
  26. |quest
  27. \IF+BIRTH DATE[09-08-54{\gb[quest]]      \\enter yoour date of birth here
  28. \IF+Correct "[Y/n"][y{\gb[quest]]
  29. \if+Enter door number "[1[%V2{\eb]
  30. \if+"[S"]top, "[N"]onstop:[S{\gb[quest]]
  31. \IF+"[ENTER"] to quit:[{\gb[quest]]
  32. \IF+to view it "[Y/n[n{\gb[quest]]
  33. \IF+"[ENTER"] to continue[{\gb[quest]]
  34. \IF+MAIN MENU [\pa[2]d{\gb[quest]]
  35. \\IF+"[ENTER"] to quit:[%V2{\eb]
  36. \if+onStop:[{\gb[quest]]
  37. \if+like to view it"[Y/n"][n{\gb[quest]]
  38. \if+menu, "[ENTER"] to quit: [%V2{]
  39. \if+to Quit[{\gb[quest]]
  40. \if+menu, "[ENTER"] to quit: [1{]
  41. \if+Would you like to view it"[Y/n"][n{\gb[quest]]
  42. \iF+"[ENTER"] to continue.[{\gb[quest]]
  43. \if+Door 1[%V2{\eb]
  44. \IF+Password:[%PW~\gb[quest]]
  45. \gb[quest]
  46.  
  47. |mail
  48. \WF[ Q L Y S U D N G H ? T"]:]d{
  49. \WF[ menu, "[ENTER"] to Quit]%V2{
  50. \eb
  51.  
  52. \FE+%U:%V1[\bl[tcmailup]]]\dm[Starting to do Mail Upload]
  53. \bl[tcmaildn]\dm[Starting to do Mail Dnload]
  54.  
  55. |tcmailup
  56. \WF[MENU "[C D U H G Q ?"]]u{
  57. \wf[B01]\ulZ[%V1]
  58. \it+[\dc-[copy %u:%v1 %U:1%V1]]
  59. \IT+[\DC-[del %U:%V1]]
  60. \eb
  61.  
  62. |tcmaildn
  63. \WF[MENU "[C D U H G Q ?"]]D{
  64. \to[75]
  65. \WF[G"]oodbye after transfer?]Y{
  66. \dc-[copy %d:%v4 %d:1%v4]
  67. \dc-[del %d:%v4]
  68. \to[255]
  69. \wf[B00]\dlz[%V4]
  70. \wf[TOMCAT MENU "[C D U H G Q]G{\pa[5]\ab
  71. \eb
  72.  
  73. |logoff
  74. \wp[]g;y{atz{~~~~\ab
  75. \IF+AT MENU "[C D U H G Q [G{\gb[logoff]]
  76. \if+wish to log off "[Y/n"] [y{\eb]
  77. \If+onStop:[{\gb[logoff]]
  78. {\eb
  79.  
  80.